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-- file P3Defs.Mesa 

— last modified by Satterthwaite, May 19, 1978 8:58 PM 

DIRECTORY 

SymDefs: FROM "symdefs" , 

TableDefs: FROM "tabledefs", 

TreeDefs: FROM "treedefs", 

Xref JournalDefs: FROM "xref journaldef s" ; 

P3Defs: DEFINITIONS - 
BEGIN 
OPEN TreeDefs, SymDefs; 

P3Mark: BOOLEAN ■ TRUE; -- mark in tree as set by pass 3 

CircuitCheck: TYPE ■ SIGNAL [loopNode: Treelndex] RETURNS [BOOLEAN]; 
CircuitSignal : TYPE - SIGNAL [loopNode: Treelndex]; 

DeclNotify, IdNotify, StmtNotify: TableDefs. TableNotif ier; 
ExpANotify, ExpBNotify: TableDefs. TableNotif ier; 

-- exported by Pass3D 

BumpCount: PROCEDURE [ISEIndex]; 

Bundling: PROCEDURE [CSEIndex] RETURNS [CARDINAL]; 

CanonicalType: PROCEDURE [CSEIndex] RETURNS [CSEIndex]; 

Declltem: TreeScan; 

Directoryltem: TreeScan; 

DirectoryScan: PROCEDURE [TreeLink] RETURNS [CARDINAL]; 

Exportld: TreeMap; 

IdentifiedType: PROCEDURE [CSEIndex] RETURNS [BOOLEAN]; 

Importltem: TreeScan; 

Interval: PROCEDURE [TreeLink, CSEIndex, BOOLEAN]; 

MakeFrameRecord: PROCEDURE [TreeLink] RETURNS [CSEIndex]; 

MakeLongType: PROCEDURE [SEIndex, CSEIndex] RETURNS [CSEIndex]; 

MakePointerType: PROCEDURE [SEIndex, CSEIndex] RETURNS [CSEIndex]; 

OrderedType: PROCEDURE [SEIndex] RETURNS [BOOLEAN]; 

PopArgCtx: PROCEDURE [recordCSEIndex] ; 

PushArgCtx: PROCEDURE [recordCSEIndex]; 

ResolveReference: PROCEDURE [ISEIndex]; 

Sharing: TreeScan; 

TargetType: PROCEDURE [CSEIndex] RETURNS [CSEIndex]; 

TypeExp: TreeMap; 

TypeForTree: PROCEDURE [TreeLink] RETURNS [SEIndex]; 

Unbundle: PROCEDURE [recordCSEIndex] RETURNS [CSEIndex]; 

UnionField: PROCEDURE [recordCSEIndex] RETURNS [ISEIndex]; 

VariantUnionType: PROCEDURE [SEIndex] RETURNS [CSEIndex]; 

XferBody: PROCEDURE [TreeLink] RETURNS [CBTIndex]; 

XferForFrame: PROCEDURE [CTXIndex] RETURNS [CSEIndex]; 

CheckExprLoop: CircuitCheck; 
CheckTypeLoop: CircuitCheck; 
LogExprLoop: CircuitSignal; 
LogTypeLoop: CircuitSignal; 

-- exported by Pass3I 

Idlnit: PROCEDURE [CARDINAL]; 
IdFinish: PROCEDURE; 

ArrangeKeys: PROCEDURE [TreeLink, CTXIndex, PROCEDURE [ISEIndex] RETURNS [TreeLink]] 

RETURNS [CARDINAL]; 
CheckDirectorylds: TreeScan; 

CheckDisjoint: PROCEDURE [ctxl, ctx2: CTXIndex]; 
CloseBase: PROCEDURE [TreeLink, HTIndex]; 
CompleteRecord: PROCEDURE [recordCSEIndex]; 

C'ruintTpfiftTrl's * TrppSrfln * 

Definedld: PROCEDURE [HTIndex, CSEIndex] RETURNS [BOOLEAN, ISEIndex]; 

Discrimination: PROCEDURE [Treelndex, TreeMap]; 

Fieldld: PROCEDURE [HTIndex, recordCSEIndex] RETURNS [CARDINAL, ISEIndex]; 

FindSe: PROCEDURE [HTIndex] RETURNS [symbol: ISEIndex, base: TreeLink, indirect: BOOLEAN]; 

GetDirectorylds : TreeScan; 

Id: PROCEDURE [HTIndex] RETURNS [TreeLink]; 

LambdaApply: PROCEDURE [t: TreeLink, formal, actual: ISEIndex] RETURNS [TreeLink]; 

OpenBase: PROCEDURE [TreeLink, HTIndex] RETURNS [TreeLink]; 

PopCtx: PROCEDURE; 
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PushCtx: PROCEDURE [CTXIndex]; 

RecordReference: PROCEDURE [ISEIndex, Xref JournalDef s.RefType]; 

ReplaceCtx: PROCEDURE [old, new: CTXIndex]; 

SearchCtxList: PROCEDURE [HTIndex, CTXIndex] RETURNS [BOOLEAN, ISEIndex]; 

TopCtx: PROCEDURE RETURNS [CTXIndex]; 

Ambiguousldentifier: SIGNAL [sei: ISEIndex] RETURNS [ISEIndex]; 
Undeclaredldentifier: SIGNAL [hti: HTIndex] RETURNS [ISEIndex]; 

-- exported by Pass3S 

BodyList: PROCEDURE [firstBti: BTIndex]; 

Case: PROCEDURE [Treelndex, TreeMap]; 

CatchPhrase: PROCEDURE [TreeLink] RETURNS [unwindCaught: BOOLEAN]; 

Fork: PROCEDURE [Treelndex, CSEIndex] RETURNS [TreeLink]; 

Join: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

New: PROCEDURE [Treelndex, CSEIndex] RETURNS [TreeLink]; 

Range: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

Signal: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

Start: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

-- exported by Pass3Xa 

Addr: PROCEDURE [Treelndex, CSEIndex]; 

Apply: PROCEDURE [Treelndex, CSEIndex, BOOLEAN]; 

Assignment: PROCEDURE [Treelndex]; 

BumpFieldRefs: PROCEDURE [recordCSEIndex]; 

DescOp: PROCEDURE [Treelndex, CSEIndex]; 

Dot: PROCEDURE [Treelndex]; 

Extract: PROCEDURE [Treelndex]; 

LongPath: PROCEDURE [TreeLink] RETURNS [BOOLEAN]; 

MatchFields: PROCEDURE [recordCSEIndex, TreeLink, BOOLEAN] RETURNS [TreeLink]; 

Operandlnternal: PROCEDURE [TreeLink] RETURNS [BOOLEAN]; 

OperandLhs: PROCEDURE [TreeLink] RETURNS [BOOLEAN]; 

UpArrow: PROCEDURE [Treelndex]; 

-- exported by Pass3Xb 

Explnit: PROCEDURE; 

Exp: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

ForceType: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

OperandType: PROCEDURE [TreeLink] RETURNS [CSEIndex]; 

RConst: PROCEDURE RETURNS [BOOLEAN]; 

Rhs: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

RPop: PROCEDURE; 

RPush: PROCEDURE [CSEIndex, BOOLEAN]; 

RType: PROCEDURE RETURNS [CSEIndex]; 

TreeStringValue: PROCEDURE [TreeLink] RETURNS [STRING]; 

VoidExp: TreeMap; 

-- the global frames 

Pass3D, Pass3I, Pass3S, Pass3Xa, Pass3Xb: PROGRAM; 

END. 



